mednme
C MEDNME SOURCE CB215821 18/02/07 21:15:06 9736 IMPLICIT INTEGER(i-n) IMPLICIT REAL*8(a-h,o-z) CHARACTER*(*) NOM CHARACTER*4 nfmt RETURN ENDIF nfmt = '(ix)' ifound = 0 WRITE(nfmt(3:3), fmt='(i1)')II ifirst = ILAST-II+1 ilimit = 10*II IF (IND .LT. ilimit) THEN WRITE(NOM(ifirst:ILAST), fmt=nfmt)IND ifound = 1 GOTO 1 ENDIF ENDDO 1 CONTINUE IF (ifound .EQ. 0) THEN RETURN ENDIF RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales