diff options
Diffstat (limited to 'Binary.f')
| -rwxr-xr-x | Binary.f | 28 |
1 files changed, 14 insertions, 14 deletions
@@ -22,8 +22,8 @@ c*****examine the parameter file ncall = 1 1 call params linprintopt = linprintalt - if (begin .eq. 0) then - if (numpecatom .gt. 0) then + if (begin == 0) then + if (numpecatom > 0) then do i=3,95 binpec(syncount,i) = pec(i) do j=1,numatomsyn @@ -32,7 +32,7 @@ c*****examine the parameter file enddo endif else - if (numpecatom .gt. 0) then + if (numpecatom > 0) then do i=3,95 pec(i) = binpec(syncount,i) do j=1,numatomsyn @@ -58,12 +58,12 @@ c spectra, and (if desired) IRAF-style smoothed spectra nchars = 20 call infile ('output ',nf2out,'formatted ',0,nchars, . f2out,lscreen) - if (syncount .eq. 1) then + if (syncount == 1) then f7out = f2out else f8out = f2out endif - if (iraf .ne. 0) then + if (iraf /= 0) then nf4out = 23 lscreen = lscreen + 2 array = 'IRAF ("rtext") OUTPUT' @@ -90,7 +90,7 @@ c*****open the line list file and the strong line list file nchars = 13 call infile ('input ',nflines,'formatted ',0,nchars, . flines,lscreen) - if (dostrong .gt. 0) then + if (dostrong > 0) then nfslines = 32 lscreen = lscreen + 2 array = 'THE STRONG LINE LIST' @@ -101,7 +101,7 @@ c*****open the line list file and the strong line list file c*****do the syntheses - if (numpecatom .eq. 0 .or. numatomsyn .eq. 0) then + if (numpecatom == 0 .or. numatomsyn == 0) then isorun = 1 nlines = 0 mode = 3 @@ -123,7 +123,7 @@ c*****do the syntheses linprintopt = 0 enddo endif - if (syncount .eq. 1) then + if (syncount == 1) then fluxprimary = flux else fluxsecondary = flux @@ -133,7 +133,7 @@ c*****do the syntheses c*****finish the syntheses call finish (1) istat = ivcleof(4,1) - if (control .ne. 'gridend') go to 1 + if (control /= 'gridend') go to 1 c*****combine the synthetic spectra for plotting @@ -141,12 +141,12 @@ c*****combine the synthetic spectra for plotting c*****now plot the spectrum, maybe iterating abundances, and end the program - if (plotopt.eq.2 .and. specfileopt.gt.0) then + if (plotopt==2 .and. specfileopt>0) then nfobs = 33 lscreen = lscreen + 2 array = 'THE OBSERVED SPECTRUM' nchars = 21 - if (specfileopt.eq.1 .or. specfileopt.eq.3) then + if (specfileopt==1 .or. specfileopt==3) then call infile ('input ',nfobs,'unformatted',2880,nchars, . fobs,lscreen) else @@ -154,14 +154,14 @@ c*****now plot the spectrum, maybe iterating abundances, and end the program . fobs,lscreen) endif endif - if (plotopt .ne. 0) then + if (plotopt /= 0) then control = 'binary ' nf2out = nf9out nf3out = nf10out call pltspec (lscreen,ncall) - if (choice .eq. 'n') then + if (choice == 'n') then do syncount=1,2 - if (numpecatom .gt. 0) then + if (numpecatom > 0) then do i=3,95 pec(i) = binpec(syncount,i) do j=1,numatomsyn |