IERR = JBHOLD() ierr = 0 WRITE(7,100) IERR PAUSE ' jbtest' c DO 1000 IL = 1,300 IERR = JBSPND() WRITE(7,101) IL, IERR IS = ISLEEP(0,0,0,4) c IERR = JBRSUM() WRITE(7,102) IL, IERR IS = ISLEEP(0,0,0,1) 1000 CONTINUE STOP ' JBTEST DONE' 100 FORMAT(' JBHOLD no., error return=',I3) 101 FORMAT(' JBSPND no., error return=',2I5) 102 FORMAT(' JBRSUM no., error return=',2I5) END