Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / tools / diachro / src / TOOL / poub.f90
1 subroutine lockasgn
2 print *,' *******lockasgn '
3 return
4 end
5 subroutine lockrel
6 print *,' *******lockrel '
7 return
8 end
9 subroutine lockoff
10 print *,' *******lockoff '
11 return
12 end
13 subroutine lockon
14 print *,' *******lockon '
15 return
16 end
17 subroutine wheneq
18 print *,' *******wheneq '
19 return
20 end
21 subroutine remark2
22 print *,' *******remark2'
23 return
24 end
25 subroutine abort
26 print *,' *******abort '
27 return
28 end
29 subroutine lfirac
30 print *,' *******lfirac '
31 return
32 end
33 subroutine flush
34 print *,' *******flush '
35 return
36 end