Ticket #11661: patch-arpack.diff
File patch-arpack.diff, 2.3 KB (added by mmoll@…, 18 years ago) |
---|
-
./ARmake.inc
34 34 # 35 35 PLAT = SUN4 36 36 # 37 # The communication library ( need for parallel library only ) 38 # Current availible platforms are: BLACS or MPI 39 # 40 COMMLIB = MPI 41 # 37 42 # %------------------------------------------------------% 38 43 # | The directories to find the various pieces of ARPACK | 39 44 # %------------------------------------------------------% … … 42 47 LAPACKdir = $(home)/LAPACK 43 48 UTILdir = $(home)/UTIL 44 49 SRCdir = $(home)/SRC 50 PSRCdir = $(home)/PARPACK/SRC/$(COMMLIB) 51 PUTILdir = $(home)/PARPACK/UTIL/$(COMMLIB) 45 52 # 46 53 DIRS = $(BLASdir) $(LAPACKdir) $(UTILdir) $(SRCdir) 47 54 # … … 51 58 # | NOTE: ARPACK assumes the use of LAPACK version 2 codes. | 52 59 # %-------------------------------------------------------------------% 53 60 # 54 #DIRS = $(UTILdir) $(SRCdir)61 DIRS = $(UTILdir) $(SRCdir) 55 62 # 56 63 # %---------------------------------------------------% 57 64 # | The name of the libraries to be created/linked to | 58 65 # %---------------------------------------------------% 59 66 # 60 ARPACKLIB = $(home)/libarpack_$(PLAT).a 61 LAPACKLIB = 67 ARPACKLIB = $(home)/libarpack.a 68 PARPACKLIB = $(home)/libparpack.a 69 LAPACKLIB = -framework Accelerate 62 70 BLASLIB = 63 71 # 64 72 ALIBS = $(ARPACKLIB) $(LAPACKLIB) $(BLASLIB) 73 MPILIBS = 74 PLIBS = $(PARPACKLIB) $(ALIBS) $(MPILIBS) 75 65 76 # 66 77 # 67 78 # %---------------------------------------------------------% … … 102 113 # %-----------------------------------------% 103 114 # 104 115 FC = f77 105 FFLAGS = -O -cg89116 FFLAGS = -O2 -ff2c 106 117 107 118 LDFLAGS = 108 119 CD = cd … … 112 123 LN = ln 113 124 LNFLAGS = -s 114 125 115 MAKE = /bin/make126 MAKE = make 116 127 117 128 RM = rm 118 129 RMFLAGS = -f -
./UTIL/second.f
diff -rubw ARPACK.orig/ARPACK/UTIL/second.f ARPACK/UTIL/second.f
20 20 REAL TARRAY( 2 ) 21 21 * .. 22 22 * .. External Functions .. 23 REAL ETIME24 EXTERNAL ETIME23 * REAL ETIME 24 * EXTERNAL ETIME 25 25 * .. 26 26 * .. Executable Statements .. 27 27 * 28 28 29 30 T = TARRAY( 1 )31 29 * T1 = ETIME( TARRAY ) 30 * T = TARRAY( 1 ) 31 T = 1 32 32 RETURN 33 33 * 34 34 * End of SECOND