if mask(i) then wgm_coord(:,i)=gm_coord(:,i) end if
时间: 2024-04-01 07:36:55 浏览: 64
WGM_Forces:WGM作用在小颗粒上的数学模拟
这段代码使用了Fortran中的条件语句if-then。它的作用是:如果mask(i)的值为.TRUE.,那么就将gm_coord(:,i)的值赋给wgm_coord(:,i)。
其中,mask是一个逻辑数组,它的元素可以是.TRUE.或.FALSE.。而i是一个整数变量,代表数组的下标。
如果mask(i)的值为.TRUE.,那么if语句中的代码块就会被执行,即将gm_coord(:,i)的值赋给wgm_coord(:,i)。如果mask(i)的值为.FALSE.,则if语句中的代码块不会被执行,程序会直接跳过这个if语句继续执行后面的代码。
阅读全文