anchor.diff:        IMPLICIT none
   
         write(*,*)
  -     1 'Usage: sphfinrot -f [IFILE] -o [OFILE] -h/-?'
  +     1 'Usage: sphfinrot -f [IFILE] -o [OFILE] -d -u -h/-?'
         write(*,*)
  -     1 '  -f [IFILE] (Default none) name of input file'
  -      write(*,*)
  -     1 '                            if no file name given, fault ',
  -     2                            'parameters prompted for manual input'
  +     1 '  -f [IFILE] (Default sphfinrot.in) name of input file'
         write(*,*)
        1 '  -o [OFILE] (Default sphfinrot.out) name of output file'
  +      write(*,*)
  +     1 '  -d         Run with default file names'
         write (*,*)
  -     1 '  -h/-?        help'
  +     1 '  -u         Prompt user to enter information through standard'
  +      write (*,*)
  +     1 '                 input for single calculation'
  +      write (*,*)
  +     1 '  -h/-?      Online help (this screen)'
         write (*,*) ''
         write (*,*)
        1 '  sphfinrot makes a counter-clockwise finite rotation of a',
        2     ' point around a pole'
         write (*,*) ''
         write (*,*)
  -     1 '    input file'
  +     1 '    Input file'
         write (*,*)
        1 '        lon_init lat_init pole_lon pole_lat angle'
         write (*,*)
        1 '         :  :'
  +      write(*,*) ''
         write (*,*)
  -     1 '    output file'
  +     1 '    Output file'
         write (*,*)
        1 '        lon_final lat_final'
         write (*,*)
  
positive.code:       REAL*8 olon,olat,ilon,ilat,plon,plat,angle
        REAL*8 ix,iy,iz,px,py,pz,ox,oy,oz
        CHARACTER*30 ifile,ofile
  
        call gcmdln(ifile,ofile)
  
        if (ifile.eq.'none') then
            print *,'To see options, use -h flag'
            print *,'Enter lon_init lat_init pole_lon pole_lat angle:'
            read *,ilon,ilat,plon,plat,angle
            call rotate(olon,olat,ilon,ilat,plon,plat,angle)
  
negative.code:           elseif (tag(1:2).eq.'-o') then
                i = i + 1
                call getarg(i,ofile)
            elseif (tag(1:2).eq.'-d') then
                write(*,*) 'Running with default file names'
            elseif (tag(1:2).eq.'-u') then
                user = 1
            elseif (tag(1:2).eq.'-h'.or.tag(1:2).eq.'-?') then
                call usage()
            endif
  