FNOM/ FCLOS example of use

    FORTRAN example:
      INTEGER FNOM, FCLOS, IER1, IER2, IER3, IER4
      IER1 = FNOM(10,'ZIGOTO','SEQ',0)
      IF (IER1 .NE.  0)	THEN
	 PRINT *, ' ERROR WITH FNOM'
      ENDIF
      IER2 = FNOM(12,'AUTRE','RND',0)
      IER3 = FNOM(14,'FICHIER','STD+RND',0)
      IER4 = FNOM(20,'/HOME/CMCARCFILE@subfile2','RND',0)
      ...
      IER1 = FCLOS(10)
      IER2 = FCLOS(12)
      IER3 = FCLOS(14)
      IER4 = FCLOS(20)

    C example:
      int intvar1, intvar2, erroth, errcod, c_fnom();
      char *name, *type;
      errcod  =	c_fnom(12,"autre","RND",0);
      intvar1 =	14;
      intvar2 =	0;
      name    =	"myfile.std";
      type    =	"STD+RND";
      erroth  =	c_fnom(intvar1,name,type,intvar2);

AUTHOR

Mario Lépine - RPN

SEE ALSO

( fnom, fclos)