LOGICAL useGGL90inAdMode, useGGL90inFwdMode
& useGGL90inAdMode, useGGL90inFwdMode,
useGGL90 = useGGL90inFwdMode
useGGL90inFwdMode = useGGL90