Commit 54b1232d authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

fixing warnings

parent 73846bc9

sources/minpack.f90

+2 −2
Original line number Diff line number Diff line
@@ -557,8 +557,8 @@ 
      double precision dxnorm,dwarf,fp,gnorm,parc,parl,paru,p1,p001,    &

     &                 sum,temp,zero                                    

      double precision dpmpar,enorm 

      data p1,p001,zero /1.0d-1,1.0d-3,0.0d0/ 

      external qrsolv

      data p1,p001,zero /1.0d-1,1.0d-3,0.0d0/ 

!                                                                       

!     dwarf is the smallest positive magnitude.                         

!
@@ -1084,8 +1084,8 @@ 
      integer i,j 

      double precision eps,epsmch,h,temp,zero 

      double precision dpmpar 

      data zero /0.0d0/ 

      external fcn

      data zero /0.0d0/ 

!                                                                       

!     epsmch is the machine precision.                                  

!

tests/testdata.f90

+2 −1
Original line number Diff line number Diff line
@@ -65,7 +65,8 @@ contains 


    pix%status = IOR(PIXEL_OK, PIXEL_MASKED_Q)

    write(*,"(a32,1x,l1,1x,a)") "pixel_ok F?"   , is_pixel_ok(pix), trim(cformat_pixel_status(pix%status))

    write(*,"(a32,1x,l1,1x,a)") "(ignore mask) pixel_ok T?", is_pixel_ok(pix, ignore_mask=.TRUE.), trim(cformat_pixel_status(pix%status))

    write(*,"(a32,1x,l1,1x,a)") "(ignore mask) pixel_ok T?", is_pixel_ok(pix, ignore_mask=.TRUE.),&

                                trim(cformat_pixel_status(pix%status))



  end subroutine test_phase_scan_struct

sources/slatec.f90

+3 −3

File changed.

Contains only whitespace changes.