diff --git a/sorc/timetwin.fd/timetwin.f b/sorc/timetwin.fd/timetwin.f
index b939eab..b37f9cd 100644
--- a/sorc/timetwin.fd/timetwin.f
+++ b/sorc/timetwin.fd/timetwin.f
@@ -129,7 +129,6 @@ PROGRAM TIMETWIN
       ENDIF                                                                     
 
 C     SPLIT DATE UP INTO COMPONENTS
-                                                                                      
       WRITE (CDATE, '(I10)')  IDATE      
       CDAT8(1:8)=CDATE(3:10)                                        
       READ  (CDATE, '(5I2)') IIDATE