2.2: TQCPRT

TOCGroup 1TQINITQVERSGroup 2A-ZGroup 1

GET-COPYRIGHT-MESSAGE

Use TQCPRT to get the copyright message for ChemApp

Added for ChemApp version 1.1.3

Synopsis

FORTRAN: CALL TQCPRT(NOERR)

C: tqcprt(&noerr);

Pascal: tqcprt(noerr);

Basic: Call tqcprt(noerr)


Name Type Value set on call or returned
NOERR INTEGER Returns an error number

TQCPRT provides the programmer with a copyright message for inclusion in application programs utilising ChemApp. The message itself is retrieved like an error message, with a subsequent call to TQERR.

See also

TQERR

Examples

FORTRAN:View plain source code



C Retrieving and displaying the ChemApp copyright notice PROGRAM CAF2 IMPLICIT NONE
INTEGER NOERR CHARACTER MESS(3)*80
C Initialise ChemApp CALL TQINI(NOERR)
C Retrieve the copyright string with TQCPRT CALL TQCPRT(NOERR)
C Then call tqerr to retrieve it CALL TQERR(MESS,NOERR)
C To print out the message, print all three strings of MESS : WRITE(UNIT=*,FMT='(3(A,/))') MESS(1), MESS(2), MESS(3)

Output:
 This program contains ChemApp                                                  
 Copyright GTT-Technologies, Kaiserstrasse 100, D-52134 Herzogenrath, Germany   
 http://www.gtt-technologies.de

END



C:View plain source code




/* Program cac2 */ /* Retrieving and displaying the ChemApp copyright notice */
#include "cacint.h"
int main() { LI noerr; int i;
/* Initialise ChemApp */ tqini(&noerr);
/* Retrieve the copyright string with tqcprt */ tqcprt(&noerr);
/* Then call tqerr to retrieve it. The variable TQERRMSG is declared in cacint.c as TQERRMSG[3][80] for this purpose:*/ tqerr((CHP)TQERRMSG,&noerr); /* Note that an explicit typecast has been used in the above call to tqerr to avoid potential compiler warnings about TQERRMSG being an incompatible pointer type */
/* To print out the message, loop over the three strings of TQERRMSG: */ for(i=0;i<3;i++) printf("%s\n",TQERRMSG[i]);

Output:
 This program contains ChemApp
 Copyright GTT-Technologies, Kaiserstrasse 100, D-52134 Herzogenrath, Germany
 http://www.gtt-technologies.de

return 0;
}





ChemApp Programmer's Manual, Edition 3.6© GTT-Technologies, 2003