Changeset 73 in PSPA
- Timestamp:
- Nov 14, 2012, 11:45:59 AM (12 years ago)
- Location:
- parmelaPSPA/trunk
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
parmelaPSPA/trunk/makefile
r69 r73 1 1 FF=gfortran 2 FFLAGS= -O4 -m32 -fno-second-underscore -funroll-loops -I. 2 #FFLAGS= -O4 -m32 -fno-second-underscore -funroll-loops -I. 3 FFLAGS= -O4 -fno-second-underscore -funroll-loops -I. 3 4 4 5 #VER=macOS 5 6 VER= 6 7 7 8 SRC= adjust.f alpham.f bend.f bfld.f bfldlal.f blockdata.f buncher.f byfield.f card.f cathod.f cathode.f cellfeld.f cellimp.f cfield.f change.f cread.f datime.f dawfc.f ddate.f design.f distriphase.f distrir.f distrirhom.f dpout.f drift.f eh.f eint.f elispdp.f emit90dp.f erf.f field.f fieldlal.f file.f fldring.f flds.f fsch.f gammln.f gammp.f gaus.f gcf.f geners.f genfc.f genfld.f gpindp.f graphic.f gser.f indx.f input.f interp.f interv.f irschfgt.f lodgau.f loduni.f luf.f norran.f out1.f out2.f out3.f out4.f out5.f out6dp.f outlaldp.f output.f pardyn.f parmelamainv503.f pdist.f poisson.f prch.f prchold.f pvoldp.f quad.f ranf.f rannor.f rn32.f rndm.f rnorth.f rotate.f rtmfc.f rtrans.f sandom.f sbload.f sccfc.f scheff1.f scheff2.f scheff3.f scwall.f search.f setwall.f sextupole.f solnoid.f sort.f sortie.f spl1d1.f spl1d2.f spl2d1.f spl2d2.f spln1.f spln2.f srchfd.f sscal.f swap.f tank.f trwave.f trwfield.f trwimp.f wiggler.f xi0.f xi10x.f zout.f zoutlal.f 8 9 9 10 OBJ=$(SRC:.f=.o) 10 11 12 all : parmela 13 14 parmela : main.o $(OBJ) 15 gfortran main.o $(OBJ) -o parmela 16 17 main.o:main.c 18 gcc -c main.c 19 11 20 adjust.o:adjust.f 12 21 $(FF) -c $(FFLAGS) adjust.f … … 339 348 $(FF) -c $(FFLAGS) zoutlal.f 340 349 341 parmela: $(OBJ) 342 $(FF) $(FFLAGS) $(OBJ) -o parmela$(VER) 350 343 351 344 352 clean: -
parmelaPSPA/trunk/parmelamainv503.f
r51 r73 233 233 c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* 234 234 c----------------------------------------------------------------------- 235 program parmela 235 c---->program parmela 236 subroutine parmela() 236 237 c----------------------------------------------------------------------- 237 238 c label n --> n*100 … … 1085 1086 go to 99 1086 1087 end 1088 1087 1089 c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* 1088 1090 subroutine cellfld(cl,nc)
Note: See TracChangeset
for help on using the changeset viewer.