Ignore:
Timestamp:
Mar 6, 2019 10:41:14 AM (3 years ago)
Author:
eckhard
Message:

inifor: Removed unused variables, improved coding style

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_control.f90

    r3779 r3785  
    110110       ELSE
    111111          OPEN( NEWUNIT=u, FILE='inifor.log', POSITION='append', STATUS='old' )
    112        END IF
     112       ENDIF
    113113         
    114114
     
    116116       IF ( PRESENT(debug) )  THEN
    117117          IF ( .NOT. debug )  suppress_message = .TRUE.
    118        END IF
     118       ENDIF
    119119
    120120       IF ( .NOT. suppress_message )  THEN
    121121          PRINT *, "inifor: " // TRIM(message) // "  [ " // TRIM(routine) // " ]"
    122122          WRITE(u, *)  TRIM(message) // "  [ " // TRIM(routine) // " ]"
    123        END IF
     123       ENDIF
    124124
    125125       CLOSE(u)
Note: See TracChangeset for help on using the changeset viewer.