From 88b6952e9dc3d657c96f3eabe7c32b49bd51cc7c Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 20 Jun 2007 15:43:35 +0000 Subject: [PATCH] Trivial formatting correction git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@393 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- decode1.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/decode1.F90 b/decode1.F90 index 84070989f..ec11c3a96 100644 --- a/decode1.F90 +++ b/decode1.F90 @@ -1,4 +1,3 @@ -!---------------------------------------------------- decode1 subroutine decode1(iarg) ! Get data and parameters from gcom, then call the decoders when needed. @@ -14,7 +13,7 @@ subroutine decode1(iarg) parameter (NSMAX=60*96000) !Samples per 60 s file integer*2 id(4,NSMAX) !46 MB: raw data from Linrad timf2 common/datcom/nutc,newdat2,id,fname80,nlen - include 'gcom1.f90' + include 'gcom1.f90' include 'gcom2.f90' include 'gcom3.f90' include 'gcom4.f90'