An example of a level 3 routine

In order to illustrate how level 1 and level 2 routines are combined to implement higher level routines we add the routine POINT as an example. SUBROUTINE POINT (MODE, INAM, COOR, 1ST AT) [Pg.199]

INTEGER TELLING THE POINTS NAME ARRAY OF COORDINATE VALUES [Pg.199]

C OUTPUT ISTAT- STATUS FLAG, 0 IF OK, -1 IF AN ERROR OCCURRED [Pg.199]

IF(MODE.LT.O.OR.MODE.GT.3.0R.INAM.LT.1)GO TO 91 C- SET PRINT MODE PRMOD=0 [Pg.199]

C- FOR M0DE=0 or 1 WRITE KEYWORD POINT IF(MODE.GT.1)GOTO 10 CALL ADDSTR( POINT(, 6,PRMOD,ISTAT) IF(ISTAT.NE.0)G0T0 99 GOTO 20 [Pg.199]

Big Chemical Encyclopedia

Chemical substances, components, reactions, process design ...