Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 175630
Collapse All | Expand All

(-)ccp4-6.0.2.orig/src/refmac5_/make_unix_ccp4.f (-1 / +1 lines)
Lines 97-103 Link Here
97 

          97
          

        

        

          98
          
      READ(CID,'(I2,1X,I2,1X,I2,2X)') IH(4),IH(3),IH(2)

          98
          
      READ(CID,'(I2,1X,I2,1X,I2,2X)') IH(4),IH(3),IH(2)

        

        

          99
          

          99
          

        

          
            

              100
              
      CALL IDATE(IMON,IDAY,IYR)


              100
              
      CALL UIDATE(IMON,IDAY,IYR)

            

        

          101
          
      IF(IYR.GE.99) THEN

          101
          
      IF(IYR.GE.99) THEN

        

        

          102
          
        IYR=IYR+1900

          102
          
        IYR=IYR+1900

        

        

          103
          
      ELSE

          103
          
      ELSE

        






  

  Return to bug 175630