Program realImag_to_magPhase
       Character*40 inFile,outFile
       Integer num_lines,row
       Real realPart,imagPart,mag,phase,pi

       pi = 4.0*ATAN(1.0)

       Write(6,*)'Enter input filename from lab:  '
       Read(5,80)inFile
 80    Format(A40)
       Open(1,file=inFile,status='old')
       Write(6,*)'Enter output (mag/phase) file: '
       Read(5,80)outfile
       Open(2,file=outFile,status='unknown')
       
       Write(6,*)'Enter number of lines: '
       Read(5,*)num_lines

       Do row = 1,num_lines
          Read(1,*)freq,realPart,ImagPart
          Write(6,100)freq,realPart,imagPart
          phase = 180/pi*ATAN2(imagPart,realPart)
          mag = SQRT(realPart**2 + imagPart**2)
          Write(2,100)freq,mag,phase
       EndDo
 100   Format(2x,3(f11.5))
       Stop
       End