RUN TIME ERROR! M6201 : MATH

[baharengineer]

hi

when i run my program i have an error!
i think this cause is an array

why this error happen?

RUN TIME ERROR M6201 : MATH
- SQRT : DOMAIN ERROR

..
INCREMENTALLY LINKED IMAGE -- PC CORRELATION DISABLED.

my program has some variable like this:

DH=WT(M)*(HSHEAR*SY(M) - VSHEAR*SX(M) + FTY(M)*ZS(L2) + FTX(M)*
1 ZB(L2) + ZH(L2)*SX(M)*FTH(M) - ZT(L2))
DB=-ZOVTO*(VMY(M)*VSHEAR+VMX(M)*HSHEAR) - VMY(M)*ZM(L2) - VMX(M)*
1 ZQ(L2) - ZH(L2)*(FTY(M)*VMX(M)+FTX(M)*VMY(M)-ZOVTO*FTH(M)*VMY(M))
DS=-ZOVTO*(VMX(M)*VSHEAR+VQX(M)*HSHEAR) - VMX(M)*ZM(L2) - VQX(M)*
1 ZQ(L2) - ZH(L2)*(FTY(M)*VQX(M)+FTX(M)*VMX(M)-ZOVTO*FTH(M)*VMX(M))
DY=ZSQSX*(VMY(M)*VSHEAR+VMX(M)*HSHEAR) - ZBAR(M)*ZB(L2) + VMY(M)*
1 ZOVTO*ZM(L2) + VMX(M)*ZOVTO*ZQ(L2) + ZH(L2)*(FTY(M)*ZOVTO*VMX(M)
2 +FTX(M)*ZOVTO*VMY(M)-FTH(M)*ZSQSX*VMY(M)) + SX(M)*DH
DX=ZSQSX*(VQX(M)*HSHEAR+VMX(M)*VSHEAR) - ZBAR(M)*ZS(L2) + VMX(M)*
1 ZOVTO*ZH(L2) + VQX(M)*ZOVTO*ZQ(L2) + ZH(L2)*(FTY(M)*ZOVTO*VQX(M)
2 +FTX(M)*ZOVTO*VMX(M)-FTH(M)*ZSQSX*VMX(M)) - SY(M)*DH

when i put DS variable as an comment i have not any error
but my program must has this line because in main source code this is.

why this line cause an error?

 

[GerritGroot]

You are trying to take the SQRT of a negative number

 

[baharengineer]

i have one sqrt command in the program that is :


SOMNAT(NPS,M)=CVCPM*SQRT(SOMNAT(NPS,M))

and i write the variable :

write(*,*) SOMNAT(NPS,M)

the result is only positive numbers!

i haven't any negative for sqrt

 

[baharengineer]

THIS IS AMOUNT OF THE VARIABLE IN SQRT COMMAND

1637.871
20127.16
116534.5
403242.6
1276588.
1411124.
1172.904
14410.27
90218.31
360123.6
1244082.
1398972.
1395.958
17148.71
103838.0
390925.2
1296249.
1413642.
1638.437
20125.77
118587.8
424395.5
1336612.
1447393.