adding TPW fortran code