csetMagField.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	csetmagfield (sys, b1, b2, b3, b)
	brief set Calculated magnetic field to /magfield/ b More...

Function/Subroutine Documentation

csetmagfield()

subroutine csetmagfield	(	character*(*)	sys,
		real*8	b1,
		real*8	b2,
		real*8	b3,
		type(magfield)	b
	)

brief set Calculated magnetic field to /magfield/ b

Parameters

[in]	sys	which system. 'xyz', 'hva', 'ned' etc data type character*3.
[in]	b1,b2,b3	3 components of mag. in the system 'sys' data type real*8
[out]	b	/magfield/

Definition at line 6 of file csetMagField.f.

References cerrormsg(), and mag_types().

Referenced by cgeomag(), chva2ned(), cned2ecent(), cned2hva(), and cxyz2ned().

!         set magnetic field strength in b
!   sys: character*3. input.  which system. 'xyz', 'hva', 'ned' etc
!  b1,b2,b3:real*8 input.  3 components of mag. in the system 'sys'
!     b: /magfield/ .  output. 
!
      implicit none
#include  "Zmagfield.h"
      character*(*) sys
      real*8 b1, b2, b3
      type(magfield)::b
!
      character*70 msg
       integer i
#include "Zmagfieldtp.h"

       do i=1, max_mag_types
         if(sys .eq. mag_types(i)) then
              b%x = b1
              b%y = b2
              b%z = b3
              b%sys = sys
              goto 10
          endif
       enddo
       write(msg, *) ' error sys=',sys,'to csetMagField'
       call cerrormsg(msg, 0)
  10   continue

Here is the call graph for this function:

Here is the caller graph for this function: