print copyright info when programs started

sean0921 · Apr 8, 2020 · dbbe35c · dbbe35c
1 parent 3e2db1d
commit dbbe35c
Show file tree

Hide file tree

Showing 9 changed files with 68 additions and 7 deletions.
diff --git a/src/bern2time.for b/src/bern2time.for
@@ -15,10 +15,12 @@ c
       logical alive
       common/fix/fve,fvn,fvh
 
-      print*,'             PROGRAM BERN2TIME version: 5.0'
-      print*,'                               by Kuo-En Ching 2005.01.11'
-      print*,'                                        Update 2008.05.28'
+      print*,'                         PROGRAM BERN2TIME                             '
+      print*,'                                            by Kuo-En Ching 2005.01.11 '
+      print*,'                                                     Update 2008.05.28 '
+      print*,'Seismology Lab, Department of Earth Sciences, NCKU   Update 2020.04.08+'
       print*,''
+      print*,'source code: https://github.com/sean0921/timeseries_process'
       print*,''
       print*,'Please choose: 1. Calculate velocities relative to one station (Fixed Station)'
       print*,'               2. Calculate station coordinate variations'

diff --git a/src/comfilt.for b/src/comfilt.for
@@ -14,6 +14,14 @@ c
       double precision,allocatable::m(:),sg(:),teq(:)
       integer i,j,s1,s2,m1,n,ns,stat,neq,H,tyeq,tm
 
+      print*,'                         PROGRAM COMFILT/RAW                           '
+      print*,'                                            by Kuo-En Ching 2005.01.11 '
+      print*,'                                                     Update 2014.01.27 '
+      print*,'Seismology Lab, Department of Earth Sciences, NCKU   Update 2020.04.08+'
+      print*,''
+      print*,'source code: https://github.com/sean0921/timeseries_process'
+      print*,''
+
       pi=atan(1.)*4
 
 #ifdef RAW

diff --git a/src/comfilt_trend.for b/src/comfilt_trend.for
@@ -4,7 +4,7 @@ c--     Considering that the post-seismic decay is LOG-type decay
 c
 c----comfilt.for---
 c
-      program comfilt
+      program comfilt_trend
 
       implicit none
       character infile*15,outfile*15,outfil1*15,line*150,sta*4
@@ -14,6 +14,14 @@ c
       double precision,allocatable::m(:),sg(:),teq(:)
       integer i,j,s1,s2,m1,n,ns,stat,neq,H,tyeq,tm
 
+      print*,'                         PROGRAM COMFILT_TREND                         '
+      print*,'                                            by Kuo-En Ching 2006.05.02 '
+      print*,'                                                     Update 2006.05.07 '
+      print*,'Seismology Lab, Department of Earth Sciences, NCKU   Update 2020.04.08+'
+      print*,''
+      print*,'source code: https://github.com/sean0921/timeseries_process'
+      print*,''
+
       pi=atan(1.)*4
 
       open(1,file='comfilt.inp',status='old')

diff --git a/src/fit.for b/src/fit.for
@@ -9,6 +9,13 @@
       real*8 mis,rr,ve,vn,vh,se,sn,sh,lonn,latt,rt,c
       double precision,allocatable::t(:),g(:,:),d(:),w(:),m(:),sg(:),teq(:),ce(:),cn(:),ch(:),ces(:),cns(:),chs(:),pve(:),pvn(:),pvh(:),pves(:),pvns(:),pvhs(:),std(:),cal(:),t1(:),tf(:),dt(:),vee(:),vnn(:),vhh(:),see(:),snn(:),shh(:)
 
+      print*,'                           PROGRAM FIT                                 '
+      print*,'                                            by Kuo-En Ching 2005.01.11 '
+      print*,'Seismology Lab, Department of Earth Sciences, NCKU   Update 2020.04.08+'
+      print*,''
+      print*,'source code: https://github.com/sean0921/timeseries_process'
+      print*,''
+
       open(1,file='fit.inp',status='old')
       ns=0
       stat=0

diff --git a/src/getpl.for b/src/getpl.for
@@ -12,6 +12,14 @@ c
       integer i,j,n,latd,lond,latm,lonm,stat,ty
       logical alive
 
+      print*,'                            PROGRAM GETPL                              '
+      print*,'                                            by Kuo-En Ching 2005.01.13 '
+      print*,'                                                     Update 2005.09.19 '
+      print*,'Seismology Lab, Department of Earth Sciences, NCKU   Update 2020.04.08+'
+      print*,''
+      print*,'source code: https://github.com/sean0921/timeseries_process'
+      print*,''
+
       inquire(file='fil.dat',exist=alive)
 #ifdef PLATFORM_IS_WINDOWS
       if(alive) call system('del fil.dat')

diff --git a/src/plot_ts.for b/src/plot_ts.for
@@ -10,6 +10,13 @@
       data dxb,dyb /9.,8./
       logical alive
 
+      print*,'                            PROGRAM PLOT_TS                            '
+      print*,'                                            by Kuo-En Ching 2005.01.11 '
+      print*,'Seismology Lab, Department of Earth Sciences, NCKU   Update 2020.04.08+'
+      print*,''
+      print*,'source code: https://github.com/sean0921/timeseries_process'
+      print*,''
+
       open(11,file='plot_ts.inp',status='old')
       read(11,*) pxminb,pxmaxb
       read(11,*) neq

diff --git a/src/remove_antenna.for b/src/remove_antenna.for
@@ -1,4 +1,4 @@
-      program remove
+      program remove_antenna
 
       implicit none
       character infile*15,outfile*15,line*500,sta*4,stap*4
@@ -8,6 +8,13 @@
       double precision,allocatable::m(:),teq(:),g(:)
       integer i,j,s1,s2,m1,H,ns,stat,neq,tyeq,tm
 
+      print*,'                         PROGRAM REMOVE_ANTENNA                        '
+      print*,'                                            by Kuo-En Ching 2005.01.11 '
+      print*,'Seismology Lab, Department of Earth Sciences, NCKU   Update 2020.04.08+'
+      print*,''
+      print*,'source code: https://github.com/sean0921/timeseries_process'
+      print*,''
+
       pi=atan(1.)*4
 
       open(1,file='remove.inp',status='old')

diff --git a/src/remove_period.for b/src/remove_period.for
@@ -1,4 +1,4 @@
-      program remove
+      program remove_period
 
       implicit none
       character infile*15,outfile*15,line*500,sta*4,stap*4
@@ -8,6 +8,13 @@
       double precision,allocatable::m(:),teq(:),g(:)
       integer i,j,s1,s2,m1,H,ns,stat,neq,tyeq,tm,ty,nT
 
+      print*,'                         PROGRAM REMOVE_PERIOD                         '
+      print*,'                                            by Kuo-En Ching 2005.01.11 '
+      print*,'Seismology Lab, Department of Earth Sciences, NCKU   Update 2020.04.08+'
+      print*,''
+      print*,'source code: https://github.com/sean0921/timeseries_process'
+      print*,''
+
       pi=atan(1.)*4
 
       open(1,file='remove.inp',status='old')

diff --git a/src/remove_trend.for b/src/remove_trend.for
@@ -1,4 +1,4 @@
-      program remove
+      program remove_trend
 
       implicit none
       character infile*15,outfile*15,line*500,sta*4,stap*4
@@ -8,6 +8,13 @@
       double precision,allocatable::m(:),teq(:),g(:)
       integer i,j,s1,s2,m1,H,ns,stat,neq,tyeq,tm,ty,nT
 
+      print*,'                         PROGRAM REMOVE_TREND                          '
+      print*,'                                            by Kuo-En Ching 2005.01.11 '
+      print*,'Seismology Lab, Department of Earth Sciences, NCKU   Update 2020.04.08+'
+      print*,''
+      print*,'source code: https://github.com/sean0921/timeseries_process'
+      print*,''
+
       pi=atan(1.)*4
 
       open(1,file='remove.inp',status='old')