!
!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/lib_crop/scrv1.for $
!
!     file: scrv1.for

      subroutine scrv1 (x1, y1, x2, y2, a, b)

!     Author : Amare Retta
!     + + + PURPOSE + + +
!     Program to compute parameters for an s-curve.

!     + + + ARGUMENT DECLARATIONS + + +
      real a,b,x1,x2,y1,y2

!     + + + LOCAL VARIABLES + + +
      real xx1,xx2
      real xx
      xx1=abs(x1)
      xx2=abs(x2)
!        write(*,*) 'scrv1',(y1-xx1)
        xx = alog(xx1/y1-xx1)
!        write(*,*) 'scrv2',(y2-xx2),(xx2-xx1)
        b=(xx-alog(xx2/y2-xx2))/(xx2-xx1)
        a=xx+b*xx1
!       write(21,900)
! 900   format(/,'scrv1')
!       write(21,901)
! 901   format('a,b,xx1,xx2,y1,y2')
!       write(21,*)a,b,xx1,xx2,y1,y2
        return
        end