Sources Esope | Cast3M

ooofrc
C OOOFRC    SOURCE    PV090527  26/04/24    08:23:09     12524          
      subroutine ooofrc(i)
C  positionne la variable ooofor de ooowcoh
%INC IOOWCOM
%INC IOOADR
      if (i.ne.0) ooofor=.true.
      if (i.eq.0) ooofor=.false.
***** thread=.not.ooofor
      oov(1)=0
      end