File: mat_trans_sqr_sqr.F

package info (click to toggle)
aces3 3.0.6-7
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 82,460 kB
  • sloc: fortran: 225,647; ansic: 20,413; cpp: 4,349; makefile: 953; sh: 137
file content (18 lines) | stat: -rw-r--r-- 481 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 

c This transforms a square block of a matrix
      subroutine mat_trans_sqr_sqr(in,out,inlen,outlen,inoff,outoff)
#include <aces.h>
      implicit none
#include <callstack.com>
      integer inoff,outoff,inlen,outlen
      M_REAL in(inlen,inlen),out(outlen,outlen)

      integer len,i

      callstack_curr='MAT_TRANS_SQR_SQR'
      len=min(inlen,outlen)
      do i=1,len
        call B_COPY(len,in(inoff,inoff+i-1),1,out(outoff,outoff+i-1),1)
      enddo
      return
      end