anchor.diff:        kshr = 0
         kcou = 0
         kgmt = 0
  +C Parse command line
         narg = iargc()
         if (narg.eq.0) call usage('!! Error: No command line arguments '//
        1                                     'specified')
  
positive.code:           write(*,*)
       1 '    Example of subfault format can be seen at:'
            write(*,*)
       2 '    http://comcat.cr.usgs.gov/product/finite-fault/usc000nzvd/',
       2      'us/1397258114263/'
            write(*,*)
       2 '        web/static2_out'
            write(*,*)
            write(*,9999)
            write(*,*)
  
negative.code:       endif
        write(*,*)
       1 '-normal NORMFILE        Normal stress (',
       2                              'requires target fault kinematics)'
        if (str.eq.'long') then
            write(*,*)
            write(*,*)
  