/Users/fujiik/rpm/BUILD/cernlib-2006/2006/tmp diff -uNr src.ORIG/pawlib/comis/code/cscomx.F src/pawlib/comis/code/cscomx.F --- src.ORIG/pawlib/comis/code/cscomx.F 1996-02-27 02:16:17 +++ src/pawlib/comis/code/cscomx.F 2025-01-07 17:12:19 @@ -14,7 +14,11 @@ * cscom calls this routine ***---------------------------------- INTEGER CSLTGB,CSITGB +#if 0 CHARACTER*(*) CONSNM, NM*72 +#else + CHARACTER*(*) CONSNM, NM*144 +#endif INTEGER IADR(N) #include "comis/cspar.inc" #include "comis/mdpool.inc" diff -uNr src.ORIG/pawlib/comis/code/cscrexec.F src/pawlib/comis/code/cscrexec.F --- src.ORIG/pawlib/comis/code/cscrexec.F 2025-01-07 17:12:19 +++ src/pawlib/comis/code/cscrexec.F 2025-01-07 17:12:19 @@ -189,9 +189,15 @@ #endif #if defined(CERNLIB_MACOSX) #if defined (CERNLIB_GFORTRAN) +# if __GNUC__ < 12 CHLINE= 'gfortran -bundle -bundle_loader `/usr/bin/which pawX11`' + // ' -bind_at_load -o ' + // NAME(:LN) //'.sl '// NAME(:LN) //'.o' +# else + CHLINE= 'gfortran -bundle -bundle_loader `/usr/bin/which pawX11`' + + // ' -o ' + + // NAME(:LN) //'.sl '// NAME(:LN) //'.o' +# endif #else CHLINE= 'g77 -bundle -bundle_loader `/usr/bin/which pawX11` ' + // ' -bind_at_load -o ' diff -uNr src.ORIG/pawlib/comis/code/cscrsl.F src/pawlib/comis/code/cscrsl.F --- src.ORIG/pawlib/comis/code/cscrsl.F 1998-01-21 19:25:12 +++ src/pawlib/comis/code/cscrsl.F 2025-01-07 17:12:19 @@ -26,7 +26,11 @@ COMMON /CSTBCS/ ITBC,ITBS #if defined(CERNLIB_SHL) #include "comis/cshlnm.inc" +#if 0 CHARACTER *72 CHLINE,FEXEC*72 +#else + CHARACTER *144 CHLINE,FEXEC*144 +#endif INTEGER SYSTEMF,CS_SHL_LOAD LN=LENOCC(NAME) LP=LENOCC(CPID) diff -uNr src.ORIG/pawlib/comis/code/csextx.F src/pawlib/comis/code/csextx.F --- src.ORIG/pawlib/comis/code/csextx.F 1996-02-27 02:16:17 +++ src/pawlib/comis/code/csextx.F 2025-01-07 17:12:19 @@ -18,7 +18,11 @@ * parelem=(next,itype,isize,ndim,d1,...dn) ***------------------------------------ INTEGER CSLTGP,CSITGP,CSKIDN +#if 0 CHARACTER *(*) CONSNM,NM*72,REPL*8,CHLEX*72 +#else + CHARACTER *(*) CONSNM,NM*144,REPL*8,CHLEX*144 +#endif INTEGER IEXT(N),STATE,IDIM(7) #include "comis/cspar.inc" #include "comis/cstab.inc" diff -uNr src.ORIG/pawlib/comis/code/csincl.F src/pawlib/comis/code/csincl.F --- src.ORIG/pawlib/comis/code/csincl.F 1997-05-13 20:56:05 +++ src/pawlib/comis/code/csincl.F 2025-01-07 17:12:19 @@ -21,7 +21,11 @@ #if defined(CERNLIB_IBM) CHARACTER *80 VMIBM #endif +#if 0 CHARACTER *(*) LINE, NAME*72 +#else + CHARACTER *(*) LINE, NAME*144 +#endif CSINCL=.FALSE. IS=INDEX(LINE,'INCLUDE') IF(IS.LE.0)RETURN diff -uNr src.ORIG/pawlib/comis/code/csptbl.F src/pawlib/comis/code/csptbl.F --- src.ORIG/pawlib/comis/code/csptbl.F 1996-02-29 18:46:30 +++ src/pawlib/comis/code/csptbl.F 2025-01-07 17:12:19 @@ -23,7 +23,11 @@ #include "comis/cstab.inc" #include "comis/cspnts.inc" INTEGER CSLTGB +#if 0 CHARACTER NAME*(*), VDESC*28, BUFF*72, TYPV(7)*6 +#else + CHARACTER NAME*(*), VDESC*28, BUFF*144, TYPV(7)*6 +#endif * to avoid the trigraph, put the second ? of *?? later DATA TYPV/'int','real','*','log','dp','*? ','cx'/ CALL CSCHID(NAME) diff -uNr src.ORIG/pawlib/comis/code/csptcl.F src/pawlib/comis/code/csptcl.F --- src.ORIG/pawlib/comis/code/csptcl.F 1996-02-27 02:16:16 +++ src/pawlib/comis/code/csptcl.F 2025-01-07 17:12:19 @@ -19,7 +19,11 @@ #include "comis/cstabps.inc" #include "comis/cstab.inc" #include "comis/cspnts.inc" +#if 0 CHARACTER NAME*(KLENID) ,CG*4, BUFF*72 +#else + CHARACTER NAME*(KLENID) ,CG*4, BUFF*144 +#endif I=IPGB PRINT *,' List of currently defined blocks:' IF(I.EQ.0) THEN diff -uNr src.ORIG/pawlib/comis/code/csptfs.F src/pawlib/comis/code/csptfs.F --- src.ORIG/pawlib/comis/code/csptfs.F 1996-02-27 02:16:16 +++ src/pawlib/comis/code/csptfs.F 2025-01-07 17:12:19 @@ -19,7 +19,11 @@ #include "comis/cstabps.inc" #include "comis/cstab.inc" #include "comis/cspnts.inc" +#if 0 CHARACTER NAME*(KLENID), TYPE(3)*4, BUFF*72 +#else + CHARACTER NAME*(KLENID), TYPE(3)*4, BUFF*144 +#endif DATA TYPE/'f77','*m*','cs'/ I=IPGP PRINT *,' List of currently defined routines:' diff -uNr src.ORIG/pawlib/comis/deccc/cs_hlshl.c src/pawlib/comis/deccc/cs_hlshl.c --- src.ORIG/pawlib/comis/deccc/cs_hlshl.c 2025-01-07 17:12:19 +++ src/pawlib/comis/deccc/cs_hlshl.c 2025-01-07 17:15:49 @@ -63,7 +63,11 @@ #include #include +#if 0 #define MAXLENFL 60 +#else +#define MAXLENFL 256 +#endif struct procedures { char procname[32];