2.2: TQCPRT | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() |
TOC | Group 1 | TQINI | TQVERS | Group 2 | A-Z | Group 1 |
Use TQCPRT to get the copyright message for ChemApp
Added for ChemApp version 1.1.3
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.
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 |