loi_fluid.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
logical function	loi_fluid (mln)

Function/Subroutine Documentation

loi_fluid()

logical function loi_fluid

(

integer

mln

)

Definition at line 31 of file loi_fluid.F.

#include      "implicit_f.inc"
      INTEGER MLN
      IF(mln==5   .OR.
     .   mln==6   .OR.
     .   mln==11  .OR.
     .   mln==17  .OR.
     .   mln==37  .OR.
     .   mln==51  .OR.
     .   mln==46  .OR.
     .   mln==47  .OR.
     .   mln==97  .OR.
     .   mln==105 .OR.
     .   mln==151)THEN
       loi_fluid=.true.
      ELSE
       loi_fluid=.false.
      ENDIF
      RETURN