diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-04 15:18:08 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-04 15:18:08 -0400 |
| commit | 70fd14e98bc476a84aef352eaf063cfcba44ab83 (patch) | |
| tree | 2737f5c1c21c76824f49c6a1b9c7061952b646f5 /Binplotprep.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Binplotprep.f')
| -rwxr-xr-x | Binplotprep.f | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Binplotprep.f b/Binplotprep.f index 78c8ce5..c9ca462 100755 --- a/Binplotprep.f +++ b/Binplotprep.f @@ -35,7 +35,7 @@ c*****open the files nchars = 40 call infile ('output ',nf9out,'formatted ',0,nchars, . f9out,lscreen) - if (plotopt .ne. 0) then + if (plotopt /= 0) then nf10out = 24 lscreen = lscreen + 2 array = 'SMOOTHED SYNTHESIS OUTPUT FOR COMBINED BINARY' @@ -49,7 +49,7 @@ c*****open the files call infile ('output ',nf5out,'formatted ',0,nchars, . f5out,lscreen) endif - if (plotopt .gt. 1) then + if (plotopt > 1) then nf6out = 27 lscreen = lscreen + 2 array = 'SPECTRUM COMPARISON OUTPUT' @@ -86,19 +86,19 @@ c*****read back the header information from the individual star raw c synthetic spectra 99 read (nf7out,1004,end=100) array read (nf8out,1004) chinfo - if (array(1:7).eq.'Isotopi') then + if (array(1:7)=='Isotopi') then write (nf9out,1004) array go to 99 - elseif (array(1:7).eq.'ALL abu') then + elseif (array(1:7)=='ALL abu') then write (nf9out,1010) array(1:59), chinfo(54:59) go to 99 - elseif (array(1:7).eq.'Changin') then + elseif (array(1:7)=='Changin') then write (nf9out,1011) array(1:37), chinfo(31:37) go to 99 - elseif (array(1:7).eq.'element') then + elseif (array(1:7)=='element') then write (nf9out,1012) array(1:30), chinfo(25:30) go to 99 - elseif (array(1:7).eq.'MODEL: ') then + elseif (array(1:7)=='MODEL: ') then write (nf9out,1013) array(8:43), chinfo(8:43) modbin(1) = array(1:80) modbin(2) = chinfo(1:80) @@ -120,14 +120,14 @@ c and dump to combined raw synthetic spectrum file z(i) = (1.0 - z(i))/lumratio enddo normalization = 1.0 + 1.0/lumratio - if (pshift .gt. 0) then + if (pshift > 0) then do i=1,pshift dev(i) = 1.0 enddo do i=pshift+1,kount dev(i) = (y(i)+z(i-pshift))/normalization enddo - elseif (pshift .eq. 0) then + elseif (pshift == 0) then do i=1,kount dev(i) = (y(i)+z(i))/normalization enddo |