I am using a Fortran subroutine in Abaqus (UAMP) to calculate multiple amplitudes. Each amplitude has a different name (for example LA_P1_S1) so Fortran can distinguish the amplitudes and do the appropriate calculations (using if ampName(1:8) .eq. 'LA_P1_S1' then..). The subroutine works fine but when the number of amplitudes increase (they could be around 10000) then the computational time increases to a level that it is not possible to solve the problem. Could you please advise me whether there is a way to make the subroutine more efficient?