Changeset 5


Ignore:
Timestamp:
Dec 16, 2021, 9:53:53 AM (3 years ago)
Author:
dcugnet
Message:

Fix in getin_l: a/=b is not accepted by gfortran for booleans (it is by ifort) ; should be a.NEQV.b

File:
1 edited

Legend:

Unmodified
Added
Removed

  • strings_mod.F90

    r4 r5  
    8888  LOGICAL,          INTENT(IN)    :: def
    8989  val = def; CALL getin(nam, val)
    90   IF(val/=def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(bool2str(val))
     90  IF(val.NEQV.def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(bool2str(val))
    9191END SUBROUTINE getin_l
    9292!==============================================================================================================================
Note: See TracChangeset for help on using the changeset viewer.