1 SUBROUTINE curr_karls(MNUM,PIM1,PIM2,PIM3,PIM4,HADCUR)
3 REAL pim1(4),pim2(4),pim3(4),pim4(4)
5 REAL*8 qq2,q1(4),q2(4),q3(4),q4(4)
28 qq2=(q1(1)+q2(1)+q3(1)+q4(1))**2
30 qq2=qq2-(q1(i)+q2(i)+q3(i)+q4(i))**2
36 CALL had4(qq2,q1,q2,q4,q3,hadr)
38 ELSEIF(mnum.EQ.2)
THEN
49 qq2=(q1(1)+q2(1)+q3(1)+q4(1))**2
51 qq2=qq2-(q1(i)+q2(i)+q3(i)+q4(i))**2
53 CALL had3(qq2,q1,q2,q3,q4,hadr)
56 WRITE(*,*)
' WRONG PARAMITER IN CURR_CPC; MNUM=',mnum