Sources Esope | Cast3M

ooofrk
C OOOFRK    SOURCE    PV090527  26/04/24    08:23:09     12524          
      SUBROUTINE OOOFRK(LRET,XCNAME,IARGS,IFLG,WHERE)
%INC IOOUNIT
      CHARACTER *(*) XCNAME,WHERE
      LRET=1
      WRITE (JLST,*) ' OOOFRK impossible : GEMAT serie '
      WRITE (JERR,*) ' OOOFRK impossible : GEMAT serie '
      RETURN
      END