PROGRAM N5
      CHARACTER*8 VARSTR
      BOHR=0.52917705993
      PI=3.141592654
      OPEN(1,FILE='n5.inp')
      OPEN(2,FILE='n5.new')
      WRITE(6,*)' Number of variables: '
      READ(*,*)NVAR
      WRITE(6,*)' First three lines not considered'
      DO 1 I=1,3
1     READ(1,*)
      DO 2 I=1,NVAR
      READ(1,1000)VARSTR,A,A,A,A,A,A
      B=A
      IF(VARSTR(2:2).NE.'D')B=B/PI*180.0
      IF(VARSTR(2:2).EQ.'D')B=B*BOHR
2     WRITE(2,2000)VARSTR,B
1000  FORMAT(3X,A8,6F10.5)
2000  FORMAT(A8,F10.5)
      CLOSE(1)
      CLOSE(2)
      STOP
      END