fortran程序问题

if((j1*j2<0)then 少一个括号 if ( (j1*j2<0) ) then