link ../../libf_gcm/phymars/lwxn.F