pH_isLoaded = .FALSE.
O pH_isLoaded,
IF ( .NOT.pH_isLoaded ) THEN
LOGICAL pH_isLoaded
pH_isLoaded =.FALSE.
pH_isLoaded = .TRUE.