apache / systemds / 4b3fa93abfd43b9101c09a5bba5094992112c27a / . / src / test / scripts / functions / updateinplace / updateinplace11.dml

#------------------------------------------------------------- | |

# | |

# Licensed to the Apache Software Foundation (ASF) under one | |

# or more contributor license agreements. See the NOTICE file | |

# distributed with this work for additional information | |

# regarding copyright ownership. The ASF licenses this file | |

# to you under the Apache License, Version 2.0 (the | |

# "License"); you may not use this file except in compliance | |

# with the License. You may obtain a copy of the License at | |

# | |

# http://www.apache.org/licenses/LICENSE-2.0 | |

# | |

# Unless required by applicable law or agreed to in writing, | |

# software distributed under the License is distributed on an | |

# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY | |

# KIND, either express or implied. See the License for the | |

# specific language governing permissions and limitations | |

# under the License. | |

# | |

#------------------------------------------------------------- | |

n = 2; | |

m = 2; | |

parfor (j in 1:m, log=DEBUG){ | |

parfor (k in 1:m, log=DEBUG){ | |

A = matrix(3, rows=n, cols=1); | |

B = matrix(2, rows=n, cols=1); | |

C = matrix(4, rows=n, cols=1); | |

i = 1 | |

while (i <= n){ | |

print("i = " + i + " j = " + j + " Sum(B) = " + sum(B)); | |

if(i < 5) | |

C = A | |

else | |

B = A | |

A[i,1] = j*7+i; | |

i = i + 1 | |

} | |

} | |

} |