Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/compute

00001 subroutine compute_trace(met,fnc,val)
00002   use phys_constant, only : long
00003   implicit none
00004   real(long), intent(out) :: val
00005   real(long), intent(in)  :: met(3,3), fnc(3,3)
00006   val = met(1,1)*fnc(1,1) + met(1,2)*fnc(1,2) + met(1,3)*fnc(1,3) &
00007   &   + met(2,1)*fnc(2,1) + met(2,2)*fnc(2,2) + met(2,3)*fnc(2,3) &
00008   &   + met(3,1)*fnc(3,1) + met(3,2)*fnc(3,2) + met(3,3)*fnc(3,3)
00009 end subroutine compute_trace

/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/compute_trace.f90