PROGRAM HINGE
      
      IMPLICIT NONE

      REAL X1(10000),Y1(100000),Z1(100000),X2(100000),Y2(100000),
     + Z2(100000),FAC
      CHARACTER*30 SHIT(100000),FUCK
      INTEGER I,J,NAT,STEPS
      CHARACTER*80 STARTF,ENDF

      CALL GETARG (1,STARTF)
      CALL GETARG (2,ENDF)
      CALL GETARG (3,FUCK)
      READ (FUCK,*) STEPS

      OPEN (1,FILE=STARTF,STATUS='OLD')
      OPEN (2,FILE=ENDF,STATUS='OLD')

      NAT=1
   10 READ (1,1000,END=20) SHIT(NAT),X1(NAT),Y1(NAT),Z1(NAT)
      IF (SHIT(NAT)(1:6).NE.'ATOM  ') GOTO 10
      NAT=NAT+1
      GOTO 10

   20 CONTINUE
      NAT=NAT-1
      WRITE (6,*) NAT, ' atoms read from first file' 

      DO I=1,NAT
         READ (2,1000) SHIT(I),X2(I),Y2(I),Z2(I)
      END DO

      DO I=1,STEPS
        FAC=FLOAT(I)/FLOAT(STEPS)
         WRITE (FUCK,1010) 1000+I
         OPEN (3,FILE=FUCK,STATUS='UNKNOWN')
         DO J=1,NAT
            WRITE (3,1000) SHIT(J),X1(J)+FAC*(X2(J)-X1(J)),
     +                             Y1(J)+FAC*(Y2(J)-Y1(J)),
     +                             Z1(J)+FAC*(Z2(J)-Z1(J))
         END DO
         CLOSE (3)
      END DO



 1000 FORMAT (A30,3F8.3)
 1010 FORMAT ('OUT',I4,'.PDB')

      END