19 #define FUNC_NAMEm "misr_init"
26 const double ulc_coord[],
27 const double lrc_coord[]
33 if (nblock < 1 || nblock >
NBLOCK) {
34 sprintf(msg,
"nblock is out of range (1 < %d < %d)", nblock, NBLOCK);
39 for (i = 1; i <
NBLOCK; i++) {
40 absOffset[i] = absOffset[i-1] + relOff[i-1];
41 relOffset[i-1] = relOff[i-1];
45 ulc[0] = ulc_coord[0];
46 ulc[1] = lrc_coord[1];
47 lrc[0] = lrc_coord[0];
48 lrc[1] = ulc_coord[1];
54 sx = (lrc[0] - ulc[0]) / nl;
55 sy = (lrc[1] - ulc[1]) / ns;
57 xc = ulc[0] + sx / 2.0;
58 yc = ulc[1] + sy / 2.0;
#define WRN_LOG_JUMP(msg)
int misr_init(const int nblock, const int nline, const int nsample, const float relOff[NOFFSET], const double ulc_coord[], const double lrc_coord[])