Fix version number in CIF

Author: richardicooper

crystals/results.F

@@ -4717,6 +4717,7 @@ SUBROUTINE XCIFX
       CHARACTER CBUF*80,CTEMP*80,CLINE*80, CHLINE*380
       character *80 ctext(4)
       character *80 cflack
+      CHARACTER*10 CVER
 C
       CHARACTER*4 CTYPE
       CHARACTER*15 CINSTR,CDIR,CPARAM,CVALUE,CDEF
@@ -4898,7 +4899,15 @@ subroutine snum(coor,esd,nd,np,j,ivet)
         WRITE (NCFPU1,'(''_audit_creation_date  '',6X, 
      1  ''"20'',3(A2,A))')
      2  CBUF(7:8),'-',CBUF(4:5),'-',CBUF(1:2),'"'
-        WRITE (CLINE,'(F5.2,A,A)')0.001*FLOAT(ISSVER),'_build_',
+     
+        IMAJOR = FLOOR(0.00001*FLOAT(ISSVER))
+	  IMINOR = FLOOR(0.001*FLOAT(ISSVER - IMAJOR*100000))
+	  IPATCH = FLOOR(FLOAT(ISSVER - IMAJOR*100000 - IMINOR*1000))
+        WRITE(CVER,2006)IMAJOR,IMINOR,IPATCH
+2006  FORMAT(I3,'.',I2,'.',I3)
+	  CALL XCRAS(CVER,LVER)      
+        
+        WRITE (CLINE,'(A,A,A)') CVER(1:LVER),'_build_',
      1                              CSSSVN(1:LSSSVN)
         CALL XCREMS (CLINE,CLINE,NCHAR)
         CALL XCTRIM (CLINE,NCHAR)