HvD: Added SVN Id: tag and turned its expansion on.

This commit is contained in:
Huub Van Dam 2011-11-05 06:53:49 +00:00
parent c101432822
commit 0c82cb33cc
16 changed files with 16 additions and 0 deletions

View file

@ -15,3 +15,4 @@
double precision ang_to_nm
parameter(ang_to_nm=0.1d0)
c $Id$

View file

@ -494,3 +494,4 @@ c
return
end subroutine
c $Id$

View file

@ -81,3 +81,4 @@ c
end
c $Id$

View file

@ -496,3 +496,4 @@ c
20 length = i
end
c $Id$

View file

@ -963,3 +963,4 @@ c if you reach this you are in trouble
end subroutine
c $Id$

View file

@ -334,3 +334,4 @@ c
return
end
c $Id$

View file

@ -113,3 +113,4 @@ c
end
c $Id$

View file

@ -96,3 +96,4 @@ c
end
c $Id$

View file

@ -497,3 +497,4 @@ c
20 length = i
end
c $Id$

View file

@ -520,3 +520,4 @@ c
i0=i+1
ostatus = k.gt.0
end subroutine
c $Id$

View file

@ -10694,3 +10694,4 @@ c
C
C
C
c $Id$

View file

@ -2306,3 +2306,4 @@ C CALL LINK("UNIT12=(kbly.o,create,text)//")
CLOSE(unit=12)
RETURN
END
c $Id$

View file

@ -52,3 +52,4 @@ main()
}
}
}
/* $Id$ */

View file

@ -339,3 +339,4 @@ C
GO TO 10
C
END
c $Id$

View file

@ -280,3 +280,4 @@ C EXACTLY THE DESIRED EIGENVALUES **********
RETURN
C ********** LAST CARD OF TRIDIB **********
END
c $Id$

View file

@ -77,3 +77,4 @@ c
call util_flush(LuOut)
end
c $Id$