external/fftpack/77to90.csh

   1 #!/bin/csh
   2
   3 #       The NCAR CISL fftpack (version 5) rename *.f90 to *.F
   4
   5
   6 cd temp
   7
   8 foreach f ( *.f90 )
   9
  10         set root = $f:r
  11
  12         #       Get rid of those pesky tab characters
  13
  14         expand $f >! ../${root}.F
  15
  16         rm ${root}.f90
  17
  18 end
  19
  20 cd ..
  21
  22 rm -rf temp