2.3: TQVERS | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() |
TOC | Group 1 | TQCPRT | TQLITE | Group 2 | A-Z | Group 1 |
Use TQVERS to get the version number of ChemApp
Added for ChemApp version 1.1.3
FORTRAN: CALL TQVERS(NVERS,NOERR)
C: tqvers(&nvers,&noerr)
;
Pascal: tqvers(nvers,noerr)
;
Basic: Call tqvers(nvers,noerr)
Name | Type | Value set on call or returned |
NVERS | INTEGER | Returns the version number of ChemApp |
NOERR | INTEGER | Returns an error number |
NVERS is returned as an integer value, e.g. 213 for version 2.1.3 of ChemApp.
FORTRAN: | View plain source code |
C Display the version number of ChemApp PROGRAM CAF3 IMPLICIT NONE
INTEGER NOERR, NVERS
C Initialise ChemApp CALL TQINI(NOERR)
C Get version number of ChemApp CALL TQVERS(NVERS,NOERR)
WRITE(UNIT=*,FMT='(A,I4)') 'This program has been compiled '// * 'with ChemApp version ', NVERS
Output:
This program has been compiled with ChemApp version 502 |
END
C: | View plain source code |
/* Program cac3 */ /* Display the version number of ChemApp */
#include "cacint.h"
int main() { LI noerr, version;
/* Initialise ChemApp */ tqini(&noerr);
/* Get version number of ChemApp*/ tqvers(&version,&noerr);
printf("This program has been compiled " "with ChemApp version %li\n", version);
Output:
This program has been compiled with ChemApp version 502 |
return 0;
}
ChemApp Programmer's Manual, Edition 3.6 | © GTT-Technologies, 2003 |