cp_corrected.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cp_corrected (cp, Tg1, Tg2, cp_cor)

Function/Subroutine Documentation

cp_corrected()

subroutine cp_corrected	(	real*8	cp,
		real*8	Tg1,
		real*8	Tg2,
		real*8	cp_cor
	)

!
      implicit none
!
      real*8 cp,tg1,tg2,cp_cor
!
      tg1=tg1
      tg2=tg2
      cp_cor=cp
!
      return