*** ./makefile.ORIG	Thu Jul 23 17:00:24 1998
--- makefile	Sat Aug 22 15:16:21 1998
***************
*** 16,28 ****
  #
  
  # Define arch
! ADFHOME=/home/adf
! ADFARCH=dec_osf1
  
  # DEC alfa osf (Working on Jensen)
! FC = f77
! LIBBLAS =
! LIBLAPAK = 
  # These warning options are used for debug porpose remove this in FFLAGS variable.
  # FWARNS = -warn argument_checking -warn declarations -warn general -warn truncated_source -warn unused
  #
--- 16,28 ----
  #
  
  # Define arch
! # ADFHOME=/home/adf
! # ADFARCH=dec_osf1
  
  # DEC alfa osf (Working on Jensen)
! # FC = f77
! # LIBBLAS =
! # LIBLAPAK = 
  # These warning options are used for debug porpose remove this in FFLAGS variable.
  # FWARNS = -warn argument_checking -warn declarations -warn general -warn truncated_source -warn unused
  #
***************
*** 82,90 ****
  #               is -warn nounused.
  #
  
! FFLAGS = -fast -O3 -w -i8 $(FWARNS)
! FFLAGS = -fast -g -w -i8 $(FWARNS)
! LIBDEF =  -ltc -lstd -lresolv
  
  
  #alfa osf @chim1.unifi.it g77 doesn't work: g77 give error compiling adf
--- 82,90 ----
  #               is -warn nounused.
  #
  
! # FFLAGS = -fast -O3 -w -i8 $(FWARNS)
! # FFLAGS = -fast -g -w -i8 $(FWARNS)
! # LIBDEF =  -ltc -lstd -lresolv
  
  
  #alfa osf @chim1.unifi.it g77 doesn't work: g77 give error compiling adf
***************
*** 104,114 ****
  # I have not tested if with the new source
  # it still work
  #
! # ADFHOME=/local/adf/adf2.3/
! # ADFARCH=cray_t3e
! # FC = f90
! # LIBDEF =  -ltc -lstd -X1
! # FFLAGS = -dp -M6010,6306 -Oscalar3,vector3,aggress,msgs,negmsgs
  
  #
  # PC PentiumII running Linux with g77
--- 104,116 ----
  # I have not tested if with the new source
  # it still work
  #
! ADFHOME=/local/adf/adf2.3/
! ADFARCH=cray_t3e
! FC = f90
! LIBDEF =  -ltc -lstd -X1
! FFLAGS = -dp -M6010,6306 -Oscalar3,vector3,aggress,msgs,negmsgs
! PXFF = pxf.f
! PXFO = pxf.o
  
  #
  # PC PentiumII running Linux with g77
***************
*** 150,157 ****
  # FtnCheck Options
  FTNCOPT = -calltree -crossref -declare -extern -f77 -portability -reference
  #
! FFILES = cifadf.f cssubs.f moldensubs.f scrio.f openkf.f rwgeneral.f rwbasis.f rwsym.f rwlint.f rwfreq.f sectools.f  $(KFDUMF)
! OFILES = cifadf.o cssubs.o moldensubs.o scrio.o openkf.o rwgeneral.o rwbasis.o rwsym.o rwlint.o rwfreq.o sectools.o $(KFDUMO)
  IFILES = common.fi cifadf.fi tape21.fh commons.fh lint.fh freq.fh
  
          all : adfrom
--- 152,159 ----
  # FtnCheck Options
  FTNCOPT = -calltree -crossref -declare -extern -f77 -portability -reference
  #
! FFILES = cifadf.f cssubs.f moldensubs.f scrio.f openkf.f rwgeneral.f rwbasis.f rwsym.f rwlint.f rwfreq.f sectools.f  $(KFDUMF) $(PXFF)
! OFILES = cifadf.o cssubs.o moldensubs.o scrio.o openkf.o rwgeneral.o rwbasis.o rwsym.o rwlint.o rwfreq.o sectools.o $(KFDUMO) $(PXFO)
  IFILES = common.fi cifadf.fi tape21.fh commons.fh lint.fh freq.fh
  
          all : adfrom
***************
*** 209,212 ****
        clean:
  	rm -f adfrom *.o ftncheck.out
  #
! #
\ No newline at end of file
--- 211,214 ----
        clean:
  	rm -f adfrom *.o ftncheck.out
  #
! #
*** ./rwfreq.f.ORIG	Thu Jul 23 16:49:22 1998
--- rwfreq.f	Sat Aug 22 15:06:31 1998
***************
*** 121,127 ****
  c     +        (namat(i),(equFR(j,i),j=1,3),i=1,nnuc)
  c
              write(jout,'(A2,1X,3F12.6)')
!      +        (elemnt(elec(i)),(equFR(j,i),j=1,3),i=1,nnuc)
  c
        return
        end
--- 121,127 ----
  c     +        (namat(i),(equFR(j,i),j=1,3),i=1,nnuc)
  c
              write(jout,'(A2,1X,3F12.6)')
!      +        (elemnt(int(elec(i))),(equFR(j,i),j=1,3),i=1,nnuc)
  c
        return
        end
