write a fortran code on helical transcriticalcompression tube used in pulse tube cryocooler using R407refrigerant.
it is different than already replied question onchegg. please dont copy paste that answer i want genuine andcorrect code using fortran 77 only