:


if(test -r "F77") then 
   F77=`cat F77`
else

   case `uname` in

   Linux) F77="g77"
        ;;
   IRIX)  F77="f77 -Nn100000"
       ;;
   IRIX64) F77="f77 -Nn100000"
       ;;
   HP-UX) F77="f77 "
       ;;
   AIX)   F77="f77 -qcharlen=5000"
       ;;
   OSF1)  F77="f77"
       ;;
   *) 
       F77="f77"
       ;;
   esac

fi
echo "
      WRITE(*,*) 'Fortran Compiler:  $F77 '
      WRITE(*,*) 'OK'
      STOP
      END
" > test.f

$F77 test.f
if(test $? -ne 0) then echo Fortran is not found;rm test.f; exit 1;fi
./a.out
rm a.out test.*

echo $F77 >F77

chmod 644  F77
