anchor.diff:              end if
             end do
             go to 16
  +       else if(buffer.eq."-v") then
  +          overb = .true.
  +          goto 16
  +       else if(buffer.eq."-help") then
  +          write(*,1000)
  +          stop
          else if(buffer.eq."-angle") then
             i = i+1
             call my_get_command_argument(i,buffer,l,istatus)
  
positive.code:        do i=1,n0
          write(fn_in,*) atag(i),(c(k,i),k=1,3)
         end do
         write(*,*) "out "//pname
         return
  c      -------------
  c      error section
  
negative.code:          goto 911
         end if
  20     continue
         return
  c      -------------
  c      error section
  