Now GNU G77 compliant

2000-10-20 14:22:35 +00:00
parent ca2a062492
commit 9f2030d053
6 changed files with 16 additions and 12 deletions
--- a/difrac/ibmfil.f
+++ b/difrac/ibmfil.f
@@ -96,7 +96,12 @@ C-----------------------------------------------------------------------
        WORK = ACTUAL
        IF (MNCODE .NE. 'VAXVMS') then
          IF (MNCODE .EQ. 'PCMSDS') THEN
-            IF (ACTUAL .EQ. 'GROUPS') WORK = '\NRCVAX\GROUPS.DAT'
+c
+c                 Avoid a compiler problem with '\'. char(92) is '\'!
+c
+CCC         IF (ACTUAL .EQ. 'GROUPS') WORK = '\NRCVAX\GROUPS.DAT'
+            IF (ACTUAL .EQ. 'GROUPS') 
+     +        WORK = char(92) // 'NRCVAX' // char(92) // 'GROUPS.DAT'
 C          ELSE
 C            IF (ACTUAL .EQ. 'GROUPS')
 C     $          CALL GETENV (ACTUAL(1:LENAME),WORK)