Merge branch 'master' into issue7_refract

src/ts/refract/sub/refract_pgdefaults.f

 c this is <refract_pgdefaults.f>
 c------------------------------------------------------------------------------
 cS
-c ($Id$)
 c
 c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
 c
@@ -39,10 +38,6 @@ c declare parameters
       include 'refract_opt.inc'
 c
 cE
-c declare local variables
-      character*(*) refract_pgdefaults_id
-      parameter (refract_pgdefaults_id=
-     &  '$Id$')
 c
 c------------------------------------------------------------------------------
 c go

src/ts/refract/sub/refract_pgfilenames.f

 c this is <refract_pgfilenames.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 03/07/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_pgframe.f

 c this is <refract_pgframe.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_pgframeact.f

 c this is <refract_pgframeact.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 01/05/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_pgnamscal.f

 c this is <refract_pgnamscal.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 03/07/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_pgparameters.f

 c this is <refract_pgparameters.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 04/07/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_pgtrace.f

 c this is <refract_pgtrace.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_preread.f

 c this is <refract_preread.f>
 c------------------------------------------------------------------------------
 cS
-c ($Id$)
 c
 c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
 c
@@ -39,9 +38,6 @@ c declare parameters
 c
 cE
 c declare local variables
-      character*(*) refract_preread_id
-      parameter (refract_preread_id=
-     &  '$Id$')
 c 
       character*80 comment 
 c

src/ts/refract/sub/refract_readdata.f

 c this is <refract_readdata.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 17/03/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_selfilestyle.f

 c this is <refract_selfilestyle.f>
 c------------------------------------------------------------------------------
 cS
-c ($Id$)
 c
 c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
 c
@@ -38,10 +37,6 @@ c
       include 'refract_pgpara.inc'
 c
 cE
-c declare local variables
-      character*(*) refract_selfilestyle_id
-      parameter (refract_selfilestyle_id=
-     &  '$Id$')
 c
 c------------------------------------------------------------------------------
 c go

src/ts/refract/sub/refract_selstyle.f

 c this is <refract_selstyle.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 03/07/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_setdefaults.f

 c this is <refract_setdefaults.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_setflags.f

 c this is <refract_setflags.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 03/07/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_setfullrange.f

 c this is <refract_setfullrange.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_setpara.f

 c this is <refract_setpara.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 03/07/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_setscale.f

 c this is <refract_setscale.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_settracevp.f

 c this is <refract_settracevp.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_settracevpold.f

 c this is <refract_settracevp.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_skipdata.f

 c this is <refract_skipdata.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 17/03/98 by Thomas Forbriger (IfG Stuttgart)
 c

src/ts/refract/sub/refract_ttreduce.f

 c this is <refract_ttreduce.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c 04/07/98 by Thomas Forbriger (IfG Stuttgart)
 c