============================================= subroutine Efunct(Se,y,yp,f) COMMONS: common-initi.f common-2Dsc-beam.f common-2Dsc-simulation.f SUBROUTINES USED: micromap-index Mon Jul 17 08:57:42 CEST 2017