CHARACTER*60 string1 real*8 M1(3,4),M2(3,4),M3(3,4),M(3,4),ACC(3,4) REAL*8 P1(3),P2(3),T(3) INTEGER*4 MM,NN,I,J 40 read(5,'(A)') string1 c write(6,*)'x',string1(2:44),'x' if (string1(2:44).ne.'Coordinates will be transformed as follows:') . goto 40 read(5,'(A)') string1 do 50 i=1,3 50 read(5,51)(M1(I,J),j=1,4) 51 FORMAT(9x,3f10.6,14x,f10.3) WRITE(6,*) '.ROT_TRANS_operators r 12 (3f16.10)' WRITE(6,'(3F16.10)') M1 WRITE(6,*) ' ' 70 continue END